home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.37 / battclock / source / bclockp.p < prev    next >
Text File  |  1994-09-17  |  933b  |  39 lines
  1.  
  2.  
  3.  
  4. { simple reading of the battclock. (KP2.12/OS2 or MaxonPASCAL3)
  5.  
  6.   using my UNITS: BattclockPlus (V1.04) and Utility (V0.2)
  7.                   this is a test for AmigaDOS
  8.  
  9.   © & P by PackMAN, c/o Falk Zühlsdorff,
  10.                     Lindenberg 66, D-98693 Ilmenau/Thuringia
  11.  
  12.   see © of my UNITS...                                               }
  13.  
  14. Program TimePlus;
  15.  
  16. USES BattclockPlus;
  17.  
  18. BEGIN
  19.  
  20.  IF getbattclock(false)
  21.   THEN writeln('english:  ',wday,battclockdate,' ',battclocktime);
  22.  IF getbattclock(true)
  23.   THEN writeln('deutsch:  ',wday,battclockdate,' ',battclocktime);
  24.  writeln;
  25.  writeln('all for itself / alles für sich (VAR: Word):');
  26.  writeln;
  27.  writeln('year   (Jahr):   ',year);
  28.  writeln('month  (Monat):  ',month);
  29.  writeln('day    (Tag):    ',mday);
  30.  writeln('hour   (Stunde): ',hour);
  31.  writeln('minute (Minute): ',min);
  32.  writeln('Sec.   (Sek.):   ',sec);
  33.  
  34.  IF UtilityBase<>NIL THEN CloseLibrary(UtilityBase);
  35.  
  36. End.
  37.  
  38.  
  39.